home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh16a.d64 / funk.ellip. l6 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  191b  |  10 lines

  1. 10 SYS 37173,"0",-3,15,-3
  2. 20 :
  3. 30 FOR A=2 TO 0 STEP -0.5
  4. 40 : SYS 37173,"+SQR(A*A-0.25*X*X+2*X+2)+1"
  5. 50 : SYS 37173,"-SQR(A*A-0.25*X*X+2*X+2)+1"
  6. 60 NEXT A
  7. 70 :
  8. 80 POKE 198,0:WAIT198,1:GETZ$
  9. 90 SYS 40211
  10.